home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / public / Xprof / xprof / update.c < prev    next >
C/C++ Source or Header  |  1994-08-01  |  7KB  |  204 lines
  1. /*==================================================================
  2.  *      File :          update.c
  3.  *      Package:        Xprof
  4.  *
  5.  *      Author :        Aloke Gupta.
  6.  *
  7.  *  (C) Copyright 1992, Aloke Gupta.
  8.  *==================================================================*/
  9.  
  10. /*
  11.  * update_profile(int index, Xattributes *attributes)
  12.  * print_profile_stats();
  13.  */
  14.  
  15. #include <stdio.h>
  16. #include <X11/Xproto.h>
  17. #include "common.h"
  18. #include "profile.h"
  19.  
  20. extern MsgStats RequestStats[];
  21. extern MsgType  RequestType [];
  22.  
  23. /* The following times are maintained in milliseconds */
  24. static ProfileStats profilestats[MAXREQUESTS];
  25.  
  26. /* Functions to update above profilestats */
  27. enter_net_time(index, time)
  28. int index; double time;
  29. { 
  30.     profilestats[index].net_time   += (double) time;
  31.     profilestats[index].total_time += (double) time;
  32. }
  33. enter_cpu_time(index, time)
  34. int index; double time;
  35. { 
  36.     profilestats[index].cpu_time   += (double) time;
  37.     profilestats[index].total_time += (double) time;
  38. }
  39.  
  40. /* init_profile: Initialize the profilestats data structure */
  41. init_profile()
  42. {   int i;
  43.     for (i = 0; i < MAXREQUESTS; i++) {
  44.     profilestats[i].net_time   = 0;
  45.     profilestats[i].cpu_time   = 0;
  46.     profilestats[i].total_time = 0;
  47.     profilestats[i].cpu_valid  = VALID;    /* Mark it valid by default */
  48.     }
  49. }
  50.  
  51. /* 
  52.  * update_profile: Make entries in the data structures for network time and
  53.  * server computation time.
  54.  */
  55. update_profile(index, attributes)
  56. int  index;             /* Index-number of request  */
  57. Xattributes *attributes;    /* Attributes of the message */
  58. {
  59.     double net_time=0.0;
  60.     double cpu_time=0.0;
  61.     /*
  62.      * First update the network time for this function
  63.      */
  64.     if (attributes->bytes != -1) {
  65.         /* Network Speed contribution */
  66.         net_time = (double) 1000.0 * attributes->bytes / get_net_speed();
  67.         enter_net_time(index, net_time);
  68.         /* Network Latency contribution */
  69.         switch (index) {    /* Only counted for round-trip requests */
  70.         case X_GetWindowAttributes:         /*  3 */
  71.         case X_GetGeometry:            /* 14 */
  72.         case X_QueryTree:            /* 15 */
  73.         case X_InternAtom:            /* 16 */
  74.         case X_GetAtomName:            /* 17 */
  75.         case X_GetProperty:            /* 20 */
  76.         case X_ListProperties:            /* 21 */
  77.         case X_GetSelectionOwner:        /* 23 */
  78.         case X_GrabPointer:            /* 26 */
  79.         case X_GrabKeyboard:            /* 31 */
  80.         case X_QueryPointer:            /* 38 */
  81.         case X_GetMotionEvents:            /* 39 */
  82.         case X_TranslateCoords:            /* 40 */
  83.         case X_GetInputFocus:            /* 43 */
  84.         case X_QueryKeymap:            /* 44 */
  85.         case X_QueryFont:            /* 47 */
  86.         case X_QueryTextExtents:        /* 48 */
  87.         case X_ListFonts:            /* 49 */
  88.         case X_ListFontsWithInfo:        /* 50 */
  89.         case X_GetFontPath:            /* 52 */
  90.         case X_GetImage:            /* 73 */
  91.         case X_ListInstalledColormaps:        /* 83 */
  92.         case X_AllocColor:            /* 84 */
  93.         case X_AllocNamedColor:            /* 85 */
  94.         case X_AllocColorCells:            /* 86 */
  95.         case X_AllocColorPlanes:        /* 87 */
  96.         case X_QueryColors:            /* 91 */
  97.         case X_LookupColor:            /* 92 */
  98.         case X_QueryBestSize:            /* 97 */
  99.         case X_QueryExtension:            /* 98 */
  100.         case X_ListExtensions:            /* 99 */
  101.         case X_GetKeyboardMapping:        /*101 */
  102.         case X_GetKeyboardControl:        /*103 */
  103.         case X_GetPointerControl:        /*106 */
  104.         case X_GetScreenSaver:            /*108 */
  105.         case X_ListHosts:            /*110 */
  106.         case X_SetPointerMapping:        /*116 */
  107.         case X_GetPointerMapping:        /*117 */
  108.         case X_SetModifierMapping:        /*118 */
  109.         case X_GetModifierMapping:        /*119 */
  110.             enter_net_time(index, (double) get_net_latency());
  111.             break;
  112.         default:        /* All other requests are one-way */
  113.             break;
  114.         }    /* switch(index) */
  115.     }
  116.  
  117.     /*
  118.      * Now update the cputime for this request
  119.      */
  120.     if ((attributes->size!=-1)&&(profilestats[index].cpu_valid!=INVALID)) {
  121.         cpu_time = (double) get_request_time(index, attributes);
  122.         if (cpu_time != -1.0) {
  123.         cpu_time *= 1000.0;        /* ms */
  124.         enter_cpu_time(index, cpu_time);
  125.         }
  126.         /* Else mark the cpu time invalid */
  127.         else profilestats[index].cpu_valid = INVALID ;
  128.     }
  129. }
  130.  
  131. static char *profile_header[] = {
  132. "_____________________________________________________________________________",
  133. "Request                     Time % of  Compute Network No. of % of  Time/call",
  134. " Name                       (ms) total part(%) part(%)  msgs  total   (ms)",
  135. };
  136. /* The following functions uses the RequestStats[] and RequestType[] structure
  137.  * in addition to the profilestats structure maintained in this file.
  138.  */
  139. print_profile_stats(fp)
  140. FILE *fp;
  141. {
  142.     int    i;
  143.     long   total_num = 0;
  144.     double total_net_time  = 0.0;
  145.     double total_cpu_time  = 0.0;
  146.     double total_total_time= 0.0;
  147.  
  148.     fprintf(fp, "\n \t\t***** Execution Profile *****\n");
  149.     /* Print Network details */
  150.     if (get_net_speed() == MAXDOUBLE)
  151.      fprintf(fp,"\nNetwork speed = Infinity,");
  152.     else fprintf(fp,"\nNetwork speed = %.2lf Kbytes/sec,",
  153.         (double) get_net_speed() / 1000.0);
  154.     fprintf(fp," latency = %.2lf ms\n", (double) get_net_latency());
  155.  
  156.     /* Accumulate totals */
  157.     for (i = 0; i < MAXREQUESTS; i++) 
  158.       if (RequestStats[i].invoked == TRUE)  {
  159.     total_num     += RequestStats[i].number;
  160.     total_net_time   += profilestats[i].net_time  ;
  161.     total_cpu_time   += profilestats[i].cpu_time  ;
  162.     total_total_time += profilestats[i].total_time;
  163.       }
  164.     /*
  165.      * Print the header
  166.      */
  167.      fprintf(fp,"%s\n", profile_header[0]);
  168.      fprintf(fp,"%s\n", profile_header[1]);
  169.      fprintf(fp,"%s\n", profile_header[2]);
  170.      fprintf(fp,"%s\n", profile_header[0]);
  171.     /*
  172.      * Print the statistics
  173.      */
  174.     for (i = 0; i < MAXREQUESTS; i++) 
  175.       if (RequestStats[i].invoked == TRUE) {
  176.     fprintf(fp,"%-22s",     RequestType[i].name);
  177.     fprintf(fp,"%10.3lf " , profilestats[i].total_time);
  178.     fprintf(fp,"%5.2lf%% ",
  179.         (double) 100.0 * profilestats[i].total_time / total_total_time);
  180.         if (profilestats[i].cpu_valid == VALID)
  181.          fprintf(fp,"%5.2lf%% ",
  182.         (double) 100.0 * profilestats[i].cpu_time / total_total_time);
  183.     else fprintf(fp,"  N/C  ");
  184.     fprintf(fp,"%5.2lf%% ",
  185.         (double) 100.0 * profilestats[i].net_time / total_total_time);
  186.     fprintf(fp,"%6ld "    , RequestStats[i].number);
  187.     fprintf(fp,"%5.2lf%% ",
  188.         (double) 100.0 * RequestStats[i].number / total_num);
  189.     fprintf(fp,"%7.3lf\n",
  190.         (double) (profilestats[i].total_time / RequestStats[i].number));
  191.       }
  192.     fprintf(fp,"%s\n", profile_header[0]);
  193.     fprintf(fp,"%22s%10.3lf %5.1lf%% %5.2lf%% %5.2lf%% %6ld %5.1lf%% %7.3lf\n",
  194.     "Grand Total  ",
  195.     total_total_time,
  196.     100.0,
  197.     (double) 100.0 * total_cpu_time / total_total_time,
  198.     (double) 100.0 * total_net_time / total_total_time,
  199.     total_num,
  200.     100.0,
  201.     (double) total_total_time / total_num);
  202.     fprintf(fp,"%s\n", profile_header[0]);
  203. }
  204.